home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 May / macformat-024.iso / Shareware City / Developers / TransSkel Pascal 2.5 / TransSkel / MiniSkel ƒ / MiniSkel.p < prev    next >
Encoding:
Text File  |  1994-12-23  |  1.2 KB  |  42 lines  |  [TEXT/PJMM]
  1. {    TransSkel demonstration:  Minimal application}
  2.  
  3. {This program does nothing but put up an Apple menu}
  4. {    with desk accessories , and a File menu }
  5. {    with a Quit item . The user can run DA 's until Quit is selected or command-Q is typed.}
  6.  
  7. {The project should include this file , TransSkel.p}
  8. { ( or a library built from TransSkel.p ) , Runtime.lib and Interface.lib .}
  9.  
  10. {27 June 1986 Paul DuBois}
  11. { 11 January 1987 Owen Hartnett    }
  12. {Ωhm Software Co.  163 Richard Drive, Tiverton, RI 02878    }
  13. {30 December 1987 OH changes for version 2.00 }
  14.  
  15. program MiniSkel;
  16.  
  17.  
  18.     uses
  19. {$IFC UNDEFINED THINK_PASCAL}
  20.         Memtypes, Quickdraw, OSIntf, ToolIntf, PackIntf, 
  21. {$ENDC}
  22.         TransSkel;
  23.  
  24.     var
  25.         m: MenuHandle;
  26.         dummy: Boolean;
  27.  
  28.     procedure DoFileMenu (item: integer);    { ignored - there's only quit            }
  29.  
  30.     begin
  31.         SkelWhoa;                                        { Tell SkelMain to quit                }
  32.     end;
  33.  
  34. begin
  35.     SkelInit(6, nil);                                        { Initialize                                }
  36.     SkelApple('', nil);                                        { Handle Desk Accessories            }
  37.     m := NewMenu(2, 'File');                                { Create Menu                            }
  38.     AppendMenu(m, 'Quit/Q');
  39.     dummy := SkelMenu(m, @DoFileMenu, nil, true);    { Tell Transkel to handle it            }
  40.     SkelMain;                                                { loop til quit selected                }
  41.     SkelClobber;                                            { clean up                                }
  42. end.